home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / varie / ditolatn.lha / DITOlatin / Install < prev    next >
Text File  |  1996-11-14  |  2KB  |  103 lines
  1. ; Very simple installer script for DITO vocabularies
  2. ; --------------------------------------------------
  3.  
  4. (message
  5.    "\nDITO\n"
  6.    "© Dirk Holtwick, 1996\n\n"
  7.    "DITO is a very flexible learning system for "
  8.    "languages. Notice that it is SHAREWARE and that "
  9.    "you have to pay a fee if you want to use it often.\n\n"
  10.    "Please read the README file for further informations.\n\n"
  11.    "Enjoy it, Dirk"
  12. )
  13.  
  14. (set destname
  15.    (askdir
  16.       (prompt "Where is your vocabulary drawer?")
  17.       (help @askdir-help)
  18.       (default "DITO:vocs")
  19.    )
  20. )
  21.  
  22. (set ch
  23.    (askoptions
  24.       (prompt "Wich vocabularies would you like to use?")
  25.       (help @askoptions-help)
  26.       (choices
  27.          "Intensivkurs (Latin-German, 197 entries)"
  28.          "Legere (Latin-German, 1093 entries)"
  29.          "Seneca (Latin-German, 111 entries)"
  30.       )
  31.       (default 255)
  32.    )
  33. )
  34.  
  35. (if (bitand ch 1)
  36.  (
  37.    (makedir
  38.       (tackon destname "latinum/Intensivkurs")
  39.       (prompt)
  40.    )
  41.    (copyfiles
  42.       (prompt "Copying 'Intensivkurs' files")
  43.       (help @copyfiles-help)
  44.       (source "latinum/Intensivkurs")
  45.       (dest (tackon destname "latinum/Intensivkurs"))
  46.       (all)
  47.    )
  48.    (copyfiles
  49.       (prompt "Copying 'Intensivkurs' files")
  50.       (help @copyfiles-help)
  51.       (source "latinum")
  52.       (dest (tackon destname "latinum"))
  53.       (pattern "Intensivkurs.voc")
  54.    )
  55.  )
  56. )
  57.  
  58. (if (bitand ch 2)
  59.  (
  60.    (makedir
  61.       (tackon destname "latinum/Legere")
  62.       (prompt)
  63.    )
  64.    (copyfiles
  65.       (prompt "Copying 'Legere' files")
  66.       (help @copyfiles-help)
  67.       (source "latinum/Legere")
  68.       (dest (tackon destname "latinum/Legere"))
  69.       (all)
  70.    )
  71.    (copyfiles
  72.       (prompt "Copying 'Legere' files")
  73.       (help @copyfiles-help)
  74.       (source "latinum")
  75.       (dest (tackon destname "latinum"))
  76.       (pattern "Legere.voc")
  77.    )
  78.  )
  79. )
  80.  
  81. (if (bitand ch 4)
  82.  (
  83.    (makedir
  84.       (tackon destname "latinum/Seneca")
  85.       (prompt)
  86.    )
  87.    (copyfiles
  88.       (prompt "Copying 'Seneca' files")
  89.       (help @copyfiles-help)
  90.       (source "latinum/Seneca")
  91.       (dest (tackon destname "latinum/Seneca"))
  92.       (all)
  93.    )
  94.    (copyfiles
  95.       (prompt "Copying 'Seneca' files")
  96.       (help @copyfiles-help)
  97.       (source "latinum")
  98.       (dest (tackon destname "latinum"))
  99.       (pattern "Seneca.voc")
  100.    )
  101.  )
  102. )
  103.